frequencyTable <- function(x){
	t<-as.data.frame(table(x))
	ni<-t$Freq
	n<-sum(ni)
	fi<-ni/n
	Ni<-cumsum(ni)
	Fi<-Ni/n
	nf<-length(ni)
	z<-rep(0,4*nf)
	dim(z)<-c(nf,4)
	z[,1]<-ni
	z[,2]<-fi
	z[,3]<-Ni
	z[,4]<-Fi
	colnames(z)<-c("Freq.Abs.","Freq.Rel.","Freq.Abs.Acum.","Freq.Rel.Acum.")
	rownames(z)<-t$x
	return(z)
}